program implicit_do

    implicit none
    integer, allocatable :: ints(:)
    integer :: i

    ints = [(i, i=1, 10)]

    print *, (ints(i), i=1, 10)  ! 等同于 print *, ints

end program implicit_do
